home *** CD-ROM | disk | FTP | other *** search
/ PC User 2002 March / Disc 1 / PCU030201.iso / software / utils / files / winsetup.exe / %MAINDIR% / Plugin.txt < prev    next >
Encoding:
Text File  |  2001-12-17  |  1.5 KB  |  67 lines
  1. --------------------------------------------------------------------------------
  2. WinSetup for Windows 9x
  3. Copyright (C) 2000-2001 Glebov Igor Olegovich
  4. All right reserved.
  5. --------------------------------------------------------------------------------
  6. Simplest example Plugin for Winsetup for Windows 9x (Use Borland Delphi 3.0 or 
  7. higher to compile this module).
  8. For using plugin copy created DLL in directory Plugins.
  9. --------------------------------------------------------------------------------
  10. {WSModule.dpr}
  11.  
  12. Library WSModule;
  13.  
  14. Uses
  15.  Forms,
  16.  Unit1 In 'Unit1.pas' {Form1};
  17.  
  18. Function WinSetup_Module: TFormClass; Export; 
  19. Begin
  20.  Result := TForm1;
  21. End;
  22.  
  23. Function Module_Title: PChar; Export;
  24. Begin
  25.  Result := PChar('WinSetup for Windows 9x');
  26. End;
  27.  
  28. Exports
  29.  Module_Title    Index 1 Name 'MODULE_TITLE',
  30.  WinSetup_Module Index 2 Name 'WINSETUP_MODULE';
  31. Begin
  32. End.
  33. --------------------------------------------------------------------------------
  34. {Unit1.pas}
  35.  
  36. Unit Unit1;
  37.  
  38. Interface
  39.  
  40. Uses
  41.  Controls, Forms, StdCtrls;
  42.  
  43. Type
  44.  TForm1 = Class(TForm)
  45.   Button1: TButton;
  46.   Procedure Button1Click(Sender: TObject);
  47.   Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
  48.  End;
  49.  
  50. Var Form1: TForm1;
  51.  
  52. Implementation
  53.  
  54. {$R *.DFM}
  55.  
  56. Procedure TForm1.Button1Click(Sender: TObject);
  57. Begin
  58.  Close;
  59. End;
  60.  
  61. Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
  62. Begin
  63.  Action := caFree;
  64. End;
  65.  
  66. End.
  67. --------------------------------------------------------------------------------